home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / alpha / examples / asltest2.d < prev    next >
Encoding:
Text File  |  2002-10-28  |  608 b   |  23 lines
  1. // Asl Screenmode Example by DMX © 2002
  2.  
  3. OPT DOSONLY
  4.  
  5. MODULE 'libraries/asl','asl'
  6.  
  7. DEF ASLBase,ModeRequest:PTR TO ScreenModeRequester
  8.  
  9. PROC main()
  10.   IF ASLBase:=OpenLibrary('asl.library',38)
  11.     IF ModeRequest:=AllocAslRequest(ASL_ScreenModeRequest, NIL)
  12.       IF AslRequestTags(ModeRequest, ASLSM_DoDepth, TRUE, TAG_DONE)
  13.         PrintF('Screenmode = 0x\z\h[8]\n', ModeRequest.DisplayID)
  14.         PrintF('Depth = \d\n', ModeRequest.DisplayDepth)
  15.       ELSE
  16.         PrintF('There''s no screenmode selected\n')
  17.       ENDIF
  18.       FreeAslRequest(ModeRequest)
  19.     ENDIF
  20.     CloseLibrary(ASLBase)
  21.   ENDIF
  22. ENDPROC
  23.